home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / METROSTK.cpt / MetroStack / background_2640.txt < prev    next >
Text File  |  1989-04-11  |  3KB  |  146 lines
  1. -- background: 2640 from stack: in
  2. -- bmap block id: 3655
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 5 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=84 top=302 right=324 bottom=108
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 25002 / 25002
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   push cd
  23.   zoomer 84,302,108,324,179,138,333,204
  24.   zoomer 179,138,333,204,12,32,498,276
  25.   go cd 8
  26. end mouseUp
  27.  
  28.  
  29.  
  30. -- part 6 (button)
  31. -- low flags: 00
  32. -- high flags: 2000
  33. -- rect: left=132 top=302 right=324 bottom=166
  34. -- title width / last selected line: 0
  35. -- icon id / first selected line: 29007 / 29007
  36. -- text alignment: 1
  37. -- font id: 0
  38. -- text size: 12
  39. -- style flags: 0
  40. -- line height: 16
  41. -- part name: Trip
  42. ----- HyperTalk script -----
  43. on mouseUp
  44.   hide cd fld 1
  45.   global tripOn,boxText
  46.   put 1 into tripOn
  47.   put "Click on station of origin" & return & "(or click this box to cancel)" into bg fld 1
  48.   show bg fld 1
  49.   put bg fld 1 into boxText
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 7 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=192 top=302 right=324 bottom=226
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 29006 / 29006
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Info
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   hide cd fld 1
  69.   global infoOn,boxText
  70.   put 1 into infoOn
  71.   put "Click on a station to get info" & return & "(or click this box to cancel)" into bg fld 1
  72.   show bg fld 1
  73.   put bg fld 1 into boxText
  74. end mouseUp
  75.  
  76.  
  77.  
  78.  
  79. -- part 8 (button)
  80. -- low flags: 00
  81. -- high flags: 2000
  82. -- rect: left=252 top=301 right=325 bottom=278
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 8538 / 8538
  85. -- text alignment: 1
  86. -- font id: 0
  87. -- text size: 12
  88. -- style flags: 0
  89. -- line height: 16
  90. -- part name: CloseUp
  91. ----- HyperTalk script -----
  92. on mouseUp
  93.   if the number of this cd is not 7 then
  94.     set cursor to watch
  95.     push cd
  96.     visual dissolve fast
  97.     go cd "downtown"
  98.     set icon of me to 2162
  99.   else
  100.     visual dissolve fast
  101.     pop cd
  102.     set icon of me to 8538
  103.   end if
  104. end mouseUp
  105.  
  106.  
  107.  
  108. -- part 9 (button)
  109. -- low flags: 00
  110. -- high flags: 2000
  111. -- rect: left=301 top=302 right=322 bottom=333
  112. -- title width / last selected line: 0
  113. -- icon id / first selected line: 1011 / 1011
  114. -- text alignment: 1
  115. -- font id: 0
  116. -- text size: 12
  117. -- style flags: 0
  118. -- line height: 16
  119. -- part name: GoHome
  120. ----- HyperTalk script -----
  121. on mouseUp
  122.   go home
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 10 (field)
  128. -- low flags: 81
  129. -- high flags: 0002
  130. -- rect: left=82 top=296 right=330 bottom=291
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: Message
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   hide me
  142.   put empty into me
  143.   openStack
  144. end mouseUp
  145.  
  146.